home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / A-B / Bible.cpt / Hyper Sword / card_7805.txt < prev    next >
Text File  |  1989-07-04  |  3KB  |  128 lines
  1. -- card: 7805 from stack: in
  2. -- bmap block id: 0
  3. -- flags: 0000
  4. -- background id: 2636
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 0005
  11. -- rect: left=20 top=132 right=155 bottom=42
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: New Button
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   set the cursor to 4
  23.   global duplicate
  24.   global scoring
  25.   add 1 to scoring
  26.   put"" into background field id"21"
  27.   get loc of background field id"21"
  28.   choose browse tool
  29.   Play"Applause"
  30.   click at it
  31.   type"Correct - Keep up the Good Work."
  32.   add 1 to duplicate
  33. end mouseUp
  34.  
  35.  
  36.  
  37. -- part 2 (button)
  38. -- low flags: 00
  39. -- high flags: 0005
  40. -- rect: left=20 top=109 right=132 bottom=42
  41. -- title width / last selected line: 0
  42. -- icon id / first selected line: 0 / 0
  43. -- text alignment: 1
  44. -- font id: 0
  45. -- text size: 12
  46. -- style flags: 0
  47. -- line height: 16
  48. -- part name: New Button
  49. ----- HyperTalk script -----
  50. on mouseUp
  51.   set the cursor to 4
  52.   global duplicate
  53.   put"" into background field id"21"
  54.   get loc of background field id"21"
  55.   choose browse tool
  56.   click at it
  57.   play"boing"
  58.   type"Sorry your answer is incorrect"
  59.   add 1 to duplicate
  60. end mouseUp
  61.  
  62.  
  63.  
  64. -- part 3 (button)
  65. -- low flags: 00
  66. -- high flags: 0005
  67. -- rect: left=20 top=155 right=178 bottom=42
  68. -- title width / last selected line: 0
  69. -- icon id / first selected line: 0 / 0
  70. -- text alignment: 1
  71. -- font id: 0
  72. -- text size: 12
  73. -- style flags: 0
  74. -- line height: 16
  75. -- part name: New Button
  76. ----- HyperTalk script -----
  77. on mouseUp
  78.   set the cursor to 4
  79.   global duplicate
  80.   put"" into background field id"21"
  81.   get loc of background field id"21"
  82.   choose browse tool
  83.   click at it
  84.   play"boing"
  85.   type"Sorry your answer is incorrect"
  86.   add 1 to duplicate
  87. end mouseUp
  88.  
  89.  
  90.  
  91. -- part contents for background part 37
  92. ----- text -----
  93. 14
  94.  
  95. -- part contents for background part 32
  96. ----- text -----
  97. The Creation Stage
  98.  
  99. -- part contents for background part 43
  100. ----- text -----
  101. Genesis 2:7,19
  102.  
  103. -- part contents for background part 1
  104. ----- text -----
  105. The First Human.
  106.  
  107. -- part contents for background part 12
  108. ----- text -----
  109. Eve
  110.  
  111. -- part contents for background part 13
  112. ----- text -----
  113. Adam
  114.  
  115. -- part contents for background part 14
  116. ----- text -----
  117. Noah
  118.  
  119. -- part contents for background part 48
  120. ----- text -----
  121. Adam:
  122. The Highlight Of God's Creation.
  123. Absolutely Unique.
  124. Made In God's Image.
  125. Declared King Of Creation.
  126. Commanded Not To Eat Of The Tree Of The Knowledge Og Good And Evil.
  127. Encouraged To Eat Of All Other Trees.
  128. Given A Wife.